From: Stéphane Glondu <glondu@debian.org>
Date: Fri, 9 Jan 2026 07:53:44 +0000 (+0100)
Subject: Increase the amount of data written to a pipe in a test
X-Git-Tag: archive/raspbian/5.4.0-2+rpi1^2~8
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=a53bfe55aa441ef83f63ea086a03f015525c822b;p=ocaml.git

Increase the amount of data written to a pipe in a test

(Closes: #1107773)
---

diff --git a/debian/patches/Increase-the-amount-of-data-written-to-a-pipe-in-a-test.patch b/debian/patches/Increase-the-amount-of-data-written-to-a-pipe-in-a-test.patch
new file mode 100644
index 00000000..716d605e
--- /dev/null
+++ b/debian/patches/Increase-the-amount-of-data-written-to-a-pipe-in-a-test.patch
@@ -0,0 +1,35 @@
+From: Stephen Dolan <sdolan@janestreet.com>
+Date: Mon, 30 Jun 2025 13:58:36 +0100
+Subject: Increase the amount of data written to a pipe in a test
+
+On some OSes, you need to write more than 1MB of data to a pipe
+before writes block, and read more than 64k to unblock them.
+
+Bug-Debian: https://bugs.debian.org/1107773
+Origin: https://github.com/ocaml/ocaml/pull/14116
+---
+ testsuite/tests/lib-channels/close_during_flush.ml | 4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/testsuite/tests/lib-channels/close_during_flush.ml b/testsuite/tests/lib-channels/close_during_flush.ml
+index 39ef2fb..08e6f6e 100644
+--- a/testsuite/tests/lib-channels/close_during_flush.ml
++++ b/testsuite/tests/lib-channels/close_during_flush.ml
+@@ -11,7 +11,7 @@ let () =
+   Unix.set_nonblock wr;
+   let buf = Bytes.make 1000 '!' in
+   begin match
+-    for i = 1 to 1000 do
++    for i = 1 to 10_000 do
+       ignore (Unix.write wr buf 0 1000)
+     done
+   with
+@@ -25,7 +25,7 @@ let () =
+   output ch buf 0 1000;
+   let alarm_handler _ =
+     (* clear some space *)
+-    Unix.read rd (Bytes.make 10_000 '?') 0 10_000 |> ignore;
++    Unix.read rd (Bytes.make 100_000 '?') 0 100_000 |> ignore;
+     close_out ch
+   in
+   Sys.signal Sys.sigalrm (Signal_handle alarm_handler) |> ignore;
diff --git a/debian/patches/series b/debian/patches/series
index 73003fc9..6da62215 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -3,3 +3,4 @@ Trigger-output-complete-exe-on-custom-with-an-enviro.patch
 Do-not-error-on-warnings-in-autoconf.patch
 Use-CCLINKFLAGS-for-linking-all-executables-and-shar.patch
 Mark-test_compact_manydomains-as-multicore.patch
+Increase-the-amount-of-data-written-to-a-pipe-in-a-test.patch